SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO






CREATE PROC [dbo].[SP_TASALD_EMPR_Q21]
/*---------------------------------------------------------------------*/
/*----- Empresa          : OFISIS S.A.                            -----*/
/*----- Cliente          : OFISIS S.A.                         	  -----*/
/*----- Sistema          : Contabilidad                           -----*/
/*----- Modulo           : Empresa                                -----*/
/*----- Programa         : Consulta de Saldos                     -----*/
/*----- Nombre           : SP_TASALD_EMPR_Q21                	  -----*/
/*----- Script           : TASALD_EMPR                            -----*/
/*----- Desarrollado     : Maria Laura Uribe                      -----*/
/*----- Fecha            : 23/06/1997                             -----*/
/*----- Base de Datos    : MS SQL Server                          -----*/
/*----- Version BD       : 6.5                                    -----*/
/*----- Invoca a SP      : SP_TASALD_EMPR_Q22                     -----*/
/*---------------------------------------------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Drop Proc SP_TASALD_EMPR_Q21                              -----*/
/*----- Grant Execute On SP_TASALD_EMPR_Q21 To PUBLIC             -----*/
/*----- exec SP_TASALD_EMPR_Q21 '01', 1, 2003, '', 2, 1, 0, ''   -----*/
/*---------------------------------------------------------------------*/
@ISCO_EMPR  	      TD_VC_002,
@INNU_CNTB_EMPR	      TD_IN_001_CONT,
@INNU_ANO	      TD_IN_004_ANNO,
@ISCO_CNTA_EMPR	      TD_VC_020,
@INNI_QUIE_ACTU	      TD_IN_001,
@INTI_PRES  	      TD_IN_001,
@INNI_AUXI  	      TD_IN_001,
@ISST_AUXI_EMPR         TD_VC_001

As
-- Nivel Cuenta
If @ISCO_CNTA_EMPR is null OR @ISCO_CNTA_EMPR = ''
   Select @ISCO_CNTA_EMPR = '%'

If @INNI_AUXI = 0
   Select t1.CO_CNTA_EMPR, Max(t2.DE_CNTA_EMPR),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0), 
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) , 
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0),  
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
   Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,                Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,        
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,                
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +            Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,                     
           Isnull(Sum( Convert(Int,Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0),                                          
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),            Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int,  Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +

           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) ), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,12,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,13,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) ), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +

           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,13,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,12,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +

           Convert(Int, Substring( PR_DATO,13,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,12,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,13,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,14,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0)
   From TASALD_EMPR t1, TMPLAN_EMPR t2
   Where t1.CO_EMPR = @ISCO_EMPR
   And     t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR
   And     t1.NU_ANNO= @INNU_ANO
   And     t1.CO_CNTA_EMPR like @ISCO_CNTA_EMPR
   And     datalength(rtrim(t1.CO_CNTA_EMPR)) = @INNI_QUIE_ACTU
   And     t1.TI_AUXI_EMPR Is Null 
   And     t1.CO_AUXI_EMPR Is Null 
   And     t1.CO_ORDE_SERV Is Null 
   And     t2.CO_EMPR = t1.CO_EMPR
   And     t2.NU_ANNO = 9999
   And     t2.CO_CNTA_EMPR = t1.CO_CNTA_EMPR
   Group  By t1.CO_CNTA_EMPR
   Order   By t1.CO_CNTA_EMPR asc
Else
If @INNI_AUXI = 1
   If @ISST_AUXI_EMPR = 'S'
   Select t1.TI_AUXI_EMPR + '-' + Rtrim(t1.CO_AUXI_EMPR), Max(t2.NO_AUXI),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) , 
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,  
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),

           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,    
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,        
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,                
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,                     
           Isnull(Sum( Convert(Int,Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0),                                          
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int,  Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
        Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +

           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
       Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_CARG_CNTB/ @INTI_PRES )), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +

           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) ), 0),

           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
        Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +            Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,12,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) + 
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,13,1)) *  ( IM_CARG_CNTB/ @INTI_PRES ) ), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,2,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,3,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,4,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,5,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,6,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,7,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,8,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,9,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,10,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,11,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,12,1)) *  ( IM_ABON_CNTB/ @INTI_PRES ) +
           Convert(Int, Substring( PR_DATO,13,1)) *  ( IM_ABON_CNTB/ @INTI_PRES )), 0),
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,12,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,13,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0) ,
           Isnull(Sum(Convert(Int, Substring( PR_DATO,1,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,2,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,3,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,4,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,5,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,6,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,7,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,8,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,9,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,10,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,11,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,12,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,13,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES +
           Convert(Int, Substring( PR_DATO,14,1)) *  (IM_CARG_CNTB - IM_ABON_CNTB)/ @INTI_PRES), 0)
   From TASALD_EMPR t1, TMAUXI_EMPR t2
   Where t1.CO_EMPR = @ISCO_EMPR
   And     t1.NU_CNTB_EMPR = @INNU_CNTB_EMPR
   And     t1.NU_ANNO= @INNU_ANO
   And     t1.CO_CNTA_EMPR like @ISCO_CNTA_EMPR
   And     datalength(rtrim(t1.CO_CNTA_EMPR)) = @INNI_QUIE_ACTU
   And     t1.TI_AUXI_EMPR Is Not Null 
   And     t2.CO_EMPR = t1.CO_EMPR
   And     t2.TI_AUXI_EMPR = t1.TI_AUXI_EMPR
   And     t2.CO_AUXI_EMPR = t1.CO_AUXI_EMPR
   Group  By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR
   Order   By t1.CO_CNTA_EMPR, t1.TI_AUXI_EMPR, t1.CO_AUXI_EMPR
   Else  If @ISST_AUXI_EMPR = 'N'
      exec SP_TASALD_EMPR_Q22  @ISCO_EMPR,@INNU_CNTB_EMPR,@INNU_ANO,
      @ISCO_CNTA_EMPR,@INNI_QUIE_ACTU,@INTI_PRES,@INNI_AUXI,@ISST_AUXI_EMPR
Return
/*--------------------------------- Fin ---------------------------------------*/


GO
